Option Explicit
Sub H_Sample003()
    'ϥH_Sample001s@XӪϪ
    Dim myChtobj As ChartObject
    Dim mySht    As Worksheet
    Dim i        As Long
    Set mySht = ThisWorkbook.Worksheets(1)      'Ϫ
    For i = 1 To mySht.ChartObjects.Count
        Set myChtobj = mySht.ChartObjects(i)    'NϪt
        'wm
        With myChtobj
            .Top = ((i - 1) \ 3 + 1) * 200 - 150
            .Left = (((i - 1) Mod 3) + 1) * 200 - 150
        End With
    Next
End Sub
